home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / PowerMacOberon 1.2 / System / KeplerFrames.Sym < prev    next >
Encoding:
Text File  |  1994-09-15  |  3.7 KB  |  11 lines  |  [TEXT/.Ob4]
  1. ˜µï√∂KeplerFramesButtonÜõ¬∂KeplerGraphs |ObjectDesc
  2. Object¸{selfÇ„„‡KeplerPortsPort˚{P Draw
  3. ¸{selfıñ≥Filesreseof tRider˚{R Read
  4. ¸{self˚{R WritenofptsStar
  5. pConstellationnext tConsDesc
  6. ¸{self˚{R Read
  7. ¸{selfState
  8. ¸{self˚{R     Write
  9.  cmd8par ÿtButtonDesc
  10. ¸{B    ˚{keys Execute
  11. ¸{BFrame˚{F˙{x˘{y    ¯{keys HandleMouse
  12. ¸{B˚{R     Read
  13. ¸{B˚{R 
  14. WriteCaption
  15. ÄsêØâflFontsFontòfntúalign †xCaptionDesc
  16. ¸{C˚{F Draw
  17. ¸{C˚{R Read
  18. ¸{C˚{R Write FocusPoint nextp p!!FocusPointDescܵàflDisplay"Frame"dsc"nextX
  19. Y WH
  20. "¸{f x##FrameMsg#˚{msg     $Handler$handle t%%FrameDescx0y0scale ext %$|&& &PortDesc
  21. ¸{P˚{x&CX
  22. ¸{P˚{y&CY
  23. ¸{P˚{X&Cx
  24. ¸{P˚{Y&Cy
  25. ¸{P˚{x˙{y˘{r¯{col˜{mode &DrawCircle
  26. ¸{P˚{x˙{y˘{a¯{b˜{colˆ{mode &DrawEllipse
  27. ¸{P˚{x1˙{y1˘{x2¯{y2˜{colˆ{mode &DrawLine
  28. ¸{P˚{x˙{y˘{w¯{h˜{colˆ{mode &DrawRect
  29. ¸{P˚{x˙{y '˘{s˜{fontˆ{colı{mode &    DrawString
  30. ¸{P˚{x˙{y˘{r¯{col˜{patˆ{mode &    
  31. FillCircle
  32. ¸{P˚{x1˙{y1˘{x2¯{y2˜{x3ˆ{y3ı{x48y4<col¿patƒmode &
  33. FillQuad
  34. ¸{P˚{x˙{y˘{w¯{h˜{colˆ{patı{mode & FillRect &$p(( (DisplayPortDesc
  35. ()DisplayPort)¸{P˚{x˙{y˘{r¯{col˜{mode (DrawCircle
  36. )¸{P˚{x˙{y˘{a¯{b˜{colˆ{mode (DrawEllipse
  37. )¸{P˚{x1˙{y1˘{x2¯{y2˜{colˆ{mode (DrawLine
  38. )¸{P˚{x˙{y *˘{s˜{fontˆ{colı{mode (DrawString
  39. )¸{P˚{x˙{y˘{w¯{h˜{colˆ{patı{mode ( FillRect+Graph+$G(col*grid (,|,,,FrameDesc
  40. ¸{F˚{ch , Consume
  41. ¸{F˚{x˙{y    ˘{keys ,
  42. EditFrame
  43. ¸{F˚{newY , Extend
  44. ¸{F˚{p , Invert
  45. ¸{F ,
  46. Neutralize
  47. ¸{F˚{newY ,Reduce
  48. ¸{F˚{X˙{Y˘{W¯{H ,Restore
  49. ¸{F˚{x˙{y    ˘{keys ,TrackMouse
  50. ¸{op+˚{G˙{O˘{P     -Notifiertime+G #l.~.SelMsgid+GO
  51. P #h/~/UpdateMsg
  52. ¸{F˚{X˙{Y AlignToGrid
  53. ¸{p AppendFocusPoint
  54. ¸{p ConsumePoint
  55. ¸{F DeleteFocusPoint+Focus
  56. ¸{F˚{x˙{y    ˘{keys GetMouse
  57. ¸{p GetPoint
  58. +¸{sel GetSelection
  59. "¸{F#˚{M Handle
  60. ¸{pIsFocusPoint
  61. MarkedButton
  62. ¸{F˚{x0˙{y0 MoveOrigin
  63. +¸{GNew
  64. ¸{op+˚{G˙{O˘{P NotifyDisplay
  65. ¸{F+˚{G˙{grid˘{scale
  66. ¸{op+˚{G˙{O˘{P     0Notifier0¯{notify$ˆ{handle Open
  67. +¸{G˚{x˙{yThisButton
  68. +¸{G˚{x˙{yThisCaptioncarpos firstfocus last nofpts&xyrefcntsel next x111StarDesc
  69. ¸{self˚{P 1Draw
  70. ¸{self˚{R 1Read
  71. ¸{self˚{R 1Write1,
  72.  2Name2name height"minX$maxX&minY(maxY3Font3,raster0 4|44FontDesc4 !"%consstars seltime0notify p55
  73. 5GraphDesc
  74. +¸{G˚{op 5 All
  75. +¸{G˚{o 5 Append
  76. +¸{G+˚{from˙{dx˘{dy 5
  77. CopySelection
  78. +¸{G˚{o 5Delete
  79. +¸{G˚{minstate 5DeleteSelection
  80. +¸{G˚{P 5Draw
  81. +¸{G˚{p 5FlipSelection
  82. +¸{G˚{s˙{dx˘{dy 5    Move
  83. +¸{G˚{dx˙{dy 5
  84. MoveSelection
  85. +¸{G˚{R 5Read
  86. +¸{G˚{o 5 SendToBack
  87. +¸{G˚{R 5Write
  88. +¸{G˚{R 5 WriteSel+5 |66Bytes36